home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zm.d64 / proc.bubble'sort < prev    next >
Text File  |  2007-03-01  |  533b  |  21 lines
  1. 0010 
  2. 0020 ╨╥╧├ BUBBLESORT(MAX'ITEMS,MAX'CHAR,╥┼╞ STRING$()) ├╠╧╙┼─
  3. 0030   ─╔═ TEMP$ ╧╞ MAX'CHAR
  4. 0040   EN:=MAX'ITEMS
  5. 0050   ╥┼╨┼┴╘ 
  6. 0060     FLAG:=0
  7. 0070     EN:=EN-1 // END VARIABLE
  8. 0080     ╞╧╥ PAIR:=1 ╘╧ EN ─╧
  9. 0090       ╔╞ STRING$(PAIR)>STRING$(PAIR+1) ╘╚┼╬ SWAP
  10. 0100     ┼╬─╞╧╥ PAIR
  11. 0110   ╒╬╘╔╠ FLAG=0
  12. 0120   //
  13. 0130   ╨╥╧├ SWAP 
  14. 0140     FLAG:=1 // RECORDS USE OF SWAP
  15. 0150     TEMP$:=STRING$(PAIR)
  16. 0160     STRING$(PAIR):=STRING$(PAIR+1)
  17. 0170     STRING$(PAIR+1):=TEMP$
  18. 0180   ┼╬─╨╥╧├ SWAP
  19. 0190   //
  20. 0200 ┼╬─╨╥╧├ BUBBLESORT
  21.